home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / BASIC / LIB / EVENTSHELL / EXTENSION / Printers (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-10-22  |  1KB  |  45 lines
  1.  Module Printers
  2.  -----------------------------------------------------------------------
  3.  Printers Handling Routines (version 1.00 22-Oct-95)
  4.  -----------------------------------------------------------------------
  5.  Structure of Data used in this module
  6.  Public Methods Supported:
  7.    FN_shell_Printers_Init                 Initialises module
  8.    FNshell_PrinterOnLine
  9.    FNshell_PrinterDriverLoaded
  10.    FNshell_PrinterDriverGetName
  11.  Private Methods Supported:
  12.    None
  13. "*|Start FN_shell_Printers_Init
  14. _shell_Printers_Init
  15. !*|Stop FN_shell_Printers_Init
  16. !*|Start FNshell_PrinterOnLine
  17. shell_PrinterOnLine
  18.  inbuf%,online%
  19. inbuf% = 
  20. ( -4 )
  21.  2,1,0,1,0,1,0
  22.  = 0 : 
  23.  > 30
  24. "#online% = 
  25. ( -4 ) < inbuf% )
  26. *FX21,3
  27. = online%
  28. ' *|Stop FNshell_PrinterOnLine
  29. +'*|Start FNshell_PrinterDriverLoaded
  30. shell_PrinterDriverLoaded
  31.  flgs%
  32.  "XPDriver_Info" 
  33.  ;flgs%
  34.  flgs% 
  35. 1&*|Stop FNshell_PrinterDriverLoaded
  36. 5(*|Start FNshell_PrinterDriverGetName
  37. shell_PrinterDriverGetName
  38.  flgs%,name%
  39.  "XPDriver_Info" 
  40.  ,,,,name%;flgs%
  41.  flgs% 
  42.  = "" 
  43. shell_GetString(name%)
  44. ;'*|Stop FNshell_PrinterDriverGetName
  45.